Autolisp For Beam Longitudinal Section